* lisp/emacs-lisp/cl-macs.el (natnum): Define it as a type

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9c9a778f045649aa17fd18c844326eac62150d70..0da759a0f17392f0f6bab877825696c902e60eda 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3365,6 +3365,7 @@ Of course, we really can't know that for sure, so it's just a heuristic."
                  (integer      . integerp)
                  (keyword      . keywordp)
                  (list         . listp)
+                 (natum                . natnump)
                  (number       . numberp)
                  (null         . null)
                  (real         . numberp)